diff --git a/compiled_contracts/CstXTZ/log.txt b/compiled_contracts/CstXTZ/log.txt new file mode 100644 index 00000000..8e0801c6 --- /dev/null +++ b/compiled_contracts/CstXTZ/log.txt @@ -0,0 +1,10 @@ +Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1QScMEtDpXSuj7z2if1EMSqaXaXPnWCxqv")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1P6Lryn3ikbyf5jywWBBRP5fkztE5ZafGe" 0)) (Pair (Pair 1000000000000000000 "KT1KXKhkxDezoa8G3WvPtsrgNTs5ZQwhpYZN") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720737458545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220737458545a20737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720737458545a; Elt "symbol" 0xea9cb0737458545a})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; CAR; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; CAR; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; CAR; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 5; CDR; CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); IF_NONE { PUSH int 43; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; CAR; GET 4; PAIR 3; CONS; SELF_ADDRESS; PAIR; CONS; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 5; CDR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; PUSH nat 1; DUP 2; SIZE; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; SELF_ADDRESS; DUP 2; CAR; CAR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + => ./listing/mainnet/CstXTZ/step_000_cont_0_storage.tz 1 + => ./listing/mainnet/CstXTZ/step_000_cont_0_storage.json 1433 + => ./listing/mainnet/CstXTZ/step_000_cont_0_sizes.csv 2 + => ./listing/mainnet/CstXTZ/step_000_cont_0_storage.py 1 + => ./listing/mainnet/CstXTZ/step_000_cont_0_types.py 7 + => ./listing/mainnet/CstXTZ/step_000_cont_0_contract.tz 5161 + => ./listing/mainnet/CstXTZ/step_000_cont_0_contract.json 6167 + => ./listing/mainnet/CstXTZ/step_000_cont_0_contract.py 762 diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_contract.json b/compiled_contracts/CstXTZ/step_000_cont_0_contract.json new file mode 100644 index 00000000..768686cf --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_contract.json @@ -0,0 +1,6167 @@ +[ + { + "prim": "storage", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%accrualBlockNumber" ] }, + { + "prim": "pair", + "args": [ { "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] }, { "prim": "address", "annots": [ "%administrator" ] } ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%borrowIndex" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] }, { "prim": "nat", "annots": [ "%borrowRatePerBlock" ] } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ] } + ], + "annots": [ "%borrows" ] + }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "nat", "annots": [ "%currentCash" ] } ] } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%expScale" ] }, { "prim": "address", "annots": [ "%fa2_TokenAddress" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%halfExpScale" ] }, { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%interestRateModel" ] }, + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] }, + { "prim": "nat", "annots": [ "%balance" ] } + ] + } + ], + "annots": [ "%ledger" ] + }, + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%metadata" ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "option", "args": [ { "prim": "address" } ], "annots": [ "%pendingAdministrator" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%protocolSeizeShareMantissa" ] }, { "prim": "nat", "annots": [ "%reserveFactorMantissa" ] } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] }, { "prim": "nat", "annots": [ "%tokenId" ] } ] } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "nat" }, + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%token_id" ] }, + { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ], "annots": [ "%token_info" ] } + ] + } + ], + "annots": [ "%token_metadata" ] + }, + { "prim": "nat", "annots": [ "%totalBorrows" ] } + ] + }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%totalReserves" ] }, { "prim": "nat", "annots": [ "%totalSupply" ] } ] } + ] + } + ] + } + ] + } + ] + }, + { + "prim": "big_map", + "args": [ + { "prim": "nat" }, + { + "prim": "lambda", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "unit" }, + { + "prim": "or", + "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] + } + ] + }, + { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "unit" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "unit" }, + { + "prim": "or", + "args": [ + { + "prim": "list", + "args": [ { "prim": "pair", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ] + }, + { "prim": "address" } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } ] + }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } ] } + ] + }, + { "prim": "nat" } + ] + }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } + ] + } + ] + } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "list", "args": [ { "prim": "operation" } ] }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } ] + }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } + ] + } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "big_map", + "args": [ + { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "map", "args": [ { "prim": "string" }, { "prim": "bytes" } ] } ] } + ] + }, + { "prim": "nat" } + ] + }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } + ] + } + ] + } + ] + } + ] + } + ] + } + ] + } + ] + } + ] + } + ] + }, + { + "prim": "parameter", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "unit", "annots": [ "%acceptGovernance" ] }, + { + "prim": "or", + "args": [ + { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%accrueInterestInternal" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%spender" ] }, { "prim": "nat", "annots": [ "%value" ] } ], "annots": [ "%approve" ] } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { "prim": "nat", "annots": [ "%doAccrueInterest" ] }, + { "prim": "or", "args": [ { "prim": "unit", "annots": [ "%hardResetOp" ] }, { "prim": "nat", "annots": [ "%reduceReservesInternal" ] } ] } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "unit", "annots": [ "%removePendingGovernance" ] }, + { + "prim": "or", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ], + "annots": [ "%request" ] + }, + { "prim": "nat", "annots": [ "%balance" ] } + ] + } + ], + "annots": [ "%setCash" ] + }, + { "prim": "address", "annots": [ "%setComptroller" ] } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ { "prim": "address", "annots": [ "%setInterestRateModelInternal" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ] + }, + { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setReserveFactorInternal" ] }, { "prim": "nat", "annots": [ "%updateProtocolSeizeShare" ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "unit", "annots": [ "%accrueInterest" ] }, + { + "prim": "or", + "args": [ + { "prim": "nat", "annots": [ "%addReserves" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%addAmount" ] }, { "prim": "address", "annots": [ "%originalSender" ] } ], + "annots": [ "%addReservesInternal" ] + } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { "prim": "nat", "annots": [ "%borrow" ] }, + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%borrowBalanceStored" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%exchangeRateStored" ] + } + ] + } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "contract", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } + ] + } + ], + "annots": [ "%getAccountSnapshot" ] + }, + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "address", "annots": [ "%spender" ] } ] }, + { "prim": "contract", "args": [ { "prim": "nat" } ] } + ], + "annots": [ "%getAllowance" ] + }, + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalance" ] } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getBalanceOfUnderlying" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getCash" ] + } + ] + }, + { + "prim": "or", + "args": [ + { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getTotalSupply" ] }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%borrower" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cTokenCollateral" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] } + ], + "annots": [ "%liquidateBorrow" ] + } + ] + } + ] + } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "nat", "annots": [ "%mint" ] }, + { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%redeem" ] }, { "prim": "nat", "annots": [ "%redeemUnderlying" ] } ] } + ] + }, + { + "prim": "or", + "args": [ + { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }, + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ], + "annots": [ "%repayBorrowBehalf" ] + }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%borrower" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%liquidator" ] }, { "prim": "nat", "annots": [ "%seizeTokens" ] } ] } + ], + "annots": [ "%seize" ] + } + ] + } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { "prim": "address", "annots": [ "%setInterestRateModel" ] }, + { + "prim": "or", + "args": [ + { "prim": "nat", "annots": [ "%setReserveFactor" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ], + "annots": [ "%sweepFA12" ] + } + ] + } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "nat", "annots": [ "%amount" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] } + ], + "annots": [ "%sweepFA2" ] + }, + { "prim": "bool", "annots": [ "%sweepMutez" ] } + ] + }, + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] } + ], + "annots": [ "%transfer" ] + }, + { + "prim": "pair", + "args": [ { "prim": "string", "annots": [ "%key" ] }, { "prim": "bytes", "annots": [ "%value" ] } ], + "annots": [ "%updateMetadata" ] + } + ] + } + ] + } + ] + } + ] + } + ] + } + ] + } + ] + }, + { + "prim": "code", + "args": [ + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ] + ] + } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] } ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] } ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] } ] + ] + } + ] + ] + } + ] + ] + } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "ADD" }, + { "prim": "ADD" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ] } + ], + "annots": [ "%requests" ] + }, + { + "prim": "contract", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "nat", "annots": [ "%token_id" ] } ], + "annots": [ "%request" ] + }, + { "prim": "nat", "annots": [ "%balance" ] } + ] + } + ] + } + ], + "annots": [ "%callback" ] + } + ] + } + ], + "annots": [ "%balance_of" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "53" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SELF", "annots": [ "%setCash" ] }, + { "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "CDR" }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DROP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "SELF_ADDRESS" }, + { + "prim": "CONTRACT", + "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], + "annots": [ "%accrueInterestInternal" ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "745" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, + { "prim": "AMOUNT" }, + { "prim": "SENDER" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CDR" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "9" } ] }, + { "prim": "SWAP" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { + "prim": "option", + "args": [ + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%borrowAmount" ] } ] } + ] + } + ], + "annots": [ "%borrowAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "217" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "210" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "211" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "ADD" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "PUSH", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } + ], + [] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "555" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] + } + ], + [] + ] + } + ], + [] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "495" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" } + ], + [] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "527" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "address", "annots": [ "%cTokenBorrowed" ] } ] + }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cTokenCollateral" ] }, + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%liquidator" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] + } + ] + } + ] + } + ], + "annots": [ "%liquidateBorrowAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "360" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER" } ] }, { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID" } ] }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, + { + "prim": "IF_NONE", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW" } ] }, + { "prim": "FAILWITH" } + ], + [] + ] + }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "VIEW", "args": [ { "string": "balanceOf" }, { "prim": "nat" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID BALANCE OF VIEW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "LIQUIDATE_SEIZE_TOO_MUCH" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%borrower" ] }, + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%liquidator" ] }, { "prim": "nat", "annots": [ "%seizeTokens" ] } ] + } + ] + } + ], + "annots": [ "%seize" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "385" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, + { + "prim": "IF_NONE", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW" } ] }, + { "prim": "FAILWITH" } + ], + [] + ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { + "prim": "option", + "args": [ + { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%minter" ] }, { "prim": "nat", "annots": [ "%mintAmount" ] } ] } + ] + } + ], + "annots": [ "%mintAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "104" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + } + ], + [] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_MINT_AMOUNT_IS_INVALID" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "10" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "99" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%redeemer" ] }, { "prim": "nat", "annots": [ "%redeemAmount" ] } ] + } + ] + } + ], + "annots": [ "%redeemAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "177" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" } + ], + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DROP" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "UPDATE", "args": [ { "int": "10" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "171" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%redeemer" ] }, { "prim": "nat", "annots": [ "%redeemAmount" ] } ] + } + ] + } + ], + "annots": [ "%redeemAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "177" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "MUL" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "280" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "281" } ] }, { "prim": "FAILWITH" } ], + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "DROP" } + ] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, + { "prim": "ADD" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" } + ], + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DROP" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "UPDATE", "args": [ { "int": "10" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "172" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "171" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, + { "prim": "AMOUNT" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%payer" ] }, + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] + } + ] + } + ] + } + ], + "annots": [ "%repayBorrowAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "SENDER" }, + { "prim": "SENDER" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DROP" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "SENDER" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%cToken" ] }, + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%payer" ] }, + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] + } + ] + } + ] + } + ], + "annots": [ "%repayBorrowAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "DROP" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SENDER" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "PAIR" }, + { "prim": "VIEW", "args": [ { "string": "seizeAllowed" }, { "prim": "bool" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID SEIZE ALLOWED VIEW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION" } ] }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER" } ] }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "231" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "UPDATE", "args": [ { "int": "10" } ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "337" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "338" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] } + ] + ] + } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SELF", "annots": [ "%accrueInterest" ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from" ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "NEQ" } + ] + ] + }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_UNDERLYING" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] + } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "list", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "NIL", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { + "prim": "IF", + "args": [ + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "BALANCE" }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "BALANCE" }, + { "prim": "UNIT" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } + ] + ] + } + ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "SENDER" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "COMPARE" }, + { "prim": "GE" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughAllowance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] + } + ] + }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%src" ] } ] }, + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%dst" ] }, { "prim": "nat", "annots": [ "%transferTokens" ] } ] } + ] + } + ], + "annots": [ "%transferAllowed" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "431" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "418" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughBalance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "ADD" }, + { "prim": "UPDATE", "args": [ { "int": "2" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "SENDER" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DIG", "args": [ { "int": "12" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "13" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "SOME" }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "426" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "NONE", "args": [ { "prim": "nat" } ] }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "SOME" }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "CAR" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] } + ] + ] + } + ] + ] + } + ] + ] + } + ] + ] + } + ] + ] + } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "SWAP" }, + { "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "accrualBlockNumber" }, + { "prim": "unit" }, + { "prim": "nat" }, + [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" } ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "balanceOf" }, + { "prim": "address" }, + { "prim": "nat" }, + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "509" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "borrowBalanceStoredView" }, + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + ], + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] + ] + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "comptroller" }, + { "prim": "unit" }, + { "prim": "address" }, + [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] } ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "exchangeRateStoredView" }, + { "prim": "unit" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] + ] + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "getAccountSnapshotView" }, + { "prim": "address" }, + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } + ] + }, + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DROP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + ], + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] + ] + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + }, + { "prim": "SOME" } + ], + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, + { + "prim": "NONE", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } + ] + } + ] + ] + } + ] + ] + } +] \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_contract.py b/compiled_contracts/CstXTZ/step_000_cont_0_contract.py new file mode 100644 index 00000000..3402c6a5 --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_contract.py @@ -0,0 +1,762 @@ +import smartpy as sp + +class Contract(sp.Contract): + def __init__(self): + self.init_type(sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, borrows = sp.TBigMap(sp.TAddress, sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal"))), comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, ledger = sp.TBigMap(sp.TAddress, sp.TRecord(approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("approvals", "balance"))), metadata = sp.TBigMap(sp.TString, sp.TBytes), pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, tokenId = sp.TNat, token_metadata = sp.TBigMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", ("activeOperations", "administrator")), ("borrowIndex", ("borrowRateMaxMantissa", "borrowRatePerBlock"))), (("borrows", ("comptroller", "currentCash")), (("expScale", "fa2_TokenAddress"), ("halfExpScale", "initialExchangeRateMantissa")))), ((("interestRateModel", ("ledger", "metadata")), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "tokenId")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply"))))))) + self.init(accrualBlockNumber = 0, + activeOperations = sp.set([]), + administrator = sp.address('KT1QScMEtDpXSuj7z2if1EMSqaXaXPnWCxqv'), + borrowIndex = 1000000000000000000, + borrowRateMaxMantissa = 800000000000, + borrowRatePerBlock = 0, + borrows = {}, + comptroller = sp.address('KT1P6Lryn3ikbyf5jywWBBRP5fkztE5ZafGe'), + currentCash = 0, + expScale = 1000000000000000000, + fa2_TokenAddress = sp.address('KT1KXKhkxDezoa8G3WvPtsrgNTs5ZQwhpYZN'), + halfExpScale = 500000000000000000, + initialExchangeRateMantissa = 1000000000000000000, + interestRateModel = sp.address('KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy'), + ledger = {}, + metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720737458545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220737458545a20737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, + pendingAdministrator = sp.none, + protocolSeizeShareMantissa = 100000000000000, + reserveFactorMantissa = 50000000000000000, + reserveFactorMaxMantissa = 1000000000000000000, + supplyRatePerBlock = 0, + tokenId = 0, + token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x36'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e6720737458545a'), 'symbol' : sp.bytes('0xea9cb0737458545a')})}, + totalBorrows = 0, + totalReserves = 0, + totalSupply = 0) + + @sp.entrypoint + def acceptGovernance(self, params): + sp.set_type(params, sp.TUnit) + sp.verify(sp.sender == self.data.pendingAdministrator.open_some(message = 'CT_NOT_SET_PENDING_ADMIN'), 'CT_NOT_PENDING_ADMIN') + self.data.administrator = self.data.pendingAdministrator.open_some() + self.data.pendingAdministrator = sp.none + + @sp.entrypoint + def accrueInterest(self, params): + sp.set_type(params, sp.TUnit) + compute_CFA2_47 = sp.local("compute_CFA2_47", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) + sp.if compute_CFA2_47.value > 0: + self.data.activeOperations.add(13) + sp.transfer(sp.record(callback = sp.self_entrypoint('setCash'), requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)])), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entrypoint='balance_of').open_some()) + sp.if sp.level != self.data.accrualBlockNumber: + sp.if self.data.accrualBlockNumber == 0: + self.data.accrualBlockNumber = sp.level + sp.else: + self.data.activeOperations.add(8) + sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) + + @sp.entrypoint + def accrueInterestInternal(self, params): + sp.set_type(params, sp.TContract(sp.TNat)) + sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') + sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = self.data.currentCash, cb = params, reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entrypoint='getBorrowRate').open_some()) + + @sp.entrypoint + def addReserves(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') + self.data.activeOperations.add(11) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entrypoint('addReservesInternal')) + + @sp.entrypoint + def addReservesInternal(self, params): + sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') + sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(11) + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(amount = params.addAmount, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + self.data.totalReserves += params.addAmount + + @sp.entrypoint + def approve(self, params): + sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value"))) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), ('FA1.2_MaxApprovalsReached', sp.unit)) + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), ('UnsafeAllowanceChange', self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0))) + sp.if params.value == 0: + del self.data.ledger[sp.sender].approvals[params.spender] + sp.else: + self.data.ledger[sp.sender].approvals[params.spender] = params.value + + @sp.entrypoint + def borrow(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.transfer(sp.record(borrowAmount = params, borrower = sp.sender, cToken = sp.self_address), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entrypoint='borrowAllowed').open_some()) + sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + borrowBalance = sp.local("borrowBalance", 0) + sp.if self.data.borrows.contains(sp.sender): + borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) + sp.if borrowSnapshot.value.principal > 0: + borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex + self.data.borrows[sp.sender].principal = borrowBalance.value + params + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex + self.data.totalBorrows += params + + @sp.entrypoint + def borrowBalanceStored(self, params): + __s1 = sp.bind_block("__s1"): + with __s1: + sp.set_type(sp.fst(params), sp.TAddress) + borrowBalance = sp.local("borrowBalance", 0) + sp.if self.data.borrows.contains(sp.fst(params)): + borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) + sp.if borrowSnapshot.value.principal > 0: + borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex + sp.result((borrowBalance.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) + sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def doAccrueInterest(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM') + sp.verify(self.data.activeOperations.contains(8), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(8) + sp.verify(params <= self.data.borrowRateMaxMantissa, 'CT_INVALID_BORROW_RATE') + sp.set_type(params, sp.TNat) + sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) + sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) + compute_CToken_771 = sp.local("compute_CToken_771", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(compute_CToken_771.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_773 = sp.local("compute_CToken_773", (compute_CToken_771.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_773.value + self.data.totalBorrows + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_773.value, sp.TNat) + sp.set_type(self.data.totalReserves, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_773.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_773.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_773.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_773.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.borrowIndex, sp.TNat) + sp.set_type(self.data.borrowIndex, sp.TNat) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.borrowIndex, sp.TNat) + sp.set_type(compute_CToken_771.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_771.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + self.data.accrualBlockNumber = sp.level + + @sp.entrypoint + def exchangeRateStored(self, params): + __s2 = sp.bind_block("__s2"): + with __s2: + sp.set_type(sp.fst(params), sp.TUnit) + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + sp.result((excRate.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) + sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def getAccountSnapshot(self, params): + __s3 = sp.bind_block("__s3"): + with __s3: + compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) + sp.if self.data.ledger.contains(sp.fst(params)): + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance + borrowBalance = sp.local("borrowBalance", 0) + sp.if self.data.borrows.contains(sp.fst(params)): + borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) + sp.if borrowSnapshot.value.principal > 0: + borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex + compute_CToken_571.value.borrowBalance = borrowBalance.value + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + compute_CToken_571.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_571.value) + sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) + sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def getAllowance(self, params): + __s4 = sp.bind_block("__s4"): + with __s4: + result = sp.local("result", 0) + sp.if self.data.ledger.contains(sp.fst(params).owner): + sp.if self.data.ledger[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): + result.value = self.data.ledger[sp.fst(params).owner].approvals[sp.fst(params).spender] + sp.result(result.value) + sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def getBalance(self, params): + __s5 = sp.bind_block("__s5"): + with __s5: + result = sp.local("result", 0) + sp.if self.data.ledger.contains(sp.fst(params)): + result.value = self.data.ledger[sp.fst(params)].balance + sp.result(result.value) + sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def getBalanceOfUnderlying(self, params): + __s6 = sp.bind_block("__s6"): + with __s6: + sp.set_type(sp.fst(params), sp.TAddress) + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.ledger[sp.fst(params)].balance, sp.TNat) + sp.set_type(excRate.value * self.data.ledger[sp.fst(params)].balance, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * self.data.ledger[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) + sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def getCash(self, params): + __s7 = sp.bind_block("__s7"): + with __s7: + sp.set_type(sp.fst(params), sp.TUnit) + sp.result((self.data.currentCash, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) + sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def getTotalSupply(self, params): + __s8 = sp.bind_block("__s8"): + with __s8: + sp.set_type(sp.fst(params), sp.TUnit) + sp.result(self.data.totalSupply) + sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) + + @sp.entrypoint + def hardResetOp(self, params): + sp.set_type(params, sp.TUnit) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + self.data.activeOperations = sp.set([]) + + @sp.entrypoint + def liquidateBorrow(self, params): + sp.set_type(params, sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount")))) + sp.transfer(sp.record(borrower = params.borrower, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral, liquidator = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), self.data.comptroller, entrypoint='liquidateBorrowAllowed').open_some()) + sp.verify(params.borrower != sp.sender, 'CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER') + sp.verify(params.repayAmount > 0, 'CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID') + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + borrowBalance = sp.local("borrowBalance", 0) + sp.if self.data.borrows.contains(params.borrower): + borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) + sp.if borrowSnapshot.value.principal > 0: + borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') + sp.if self.data.borrows[params.borrower].principal == 0: + sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) + sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) + + @sp.entrypoint + def mint(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.transfer(sp.record(cToken = sp.self_address, mintAmount = params, minter = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entrypoint='mintAllowed').open_some()) + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = params, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + amount = sp.local("amount", 0) + sp.if True: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value + sp.else: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params, sp.TNat) + sp.set_type(excRate.value * params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value + sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') + self.data.totalSupply += amount.value + self.data.ledger[sp.sender].balance += amount.value + + @sp.entrypoint + def redeem(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) + redeem_amount = sp.local("redeem_amount", 0) + sp.if False: + redeem_amount.value = params + sp.else: + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + amount = sp.local("amount", 0) + sp.if False: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value + sp.else: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params, sp.TNat) + sp.set_type(excRate.value * params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value + redeem_amount.value = amount.value + redeem_tokens = sp.local("redeem_tokens", 0) + sp.if False: + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + amount = sp.local("amount", 0) + sp.if True: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') + compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) + compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) + sp.if (compute_Exponential_277.value % excRate.value) > 0: + pass + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value + sp.else: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params, sp.TNat) + sp.set_type(excRate.value * params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value + redeem_tokens.value = amount.value + sp.else: + redeem_tokens.value = params + sp.if (redeem_amount.value > 0) & (redeem_tokens.value > 0): + sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') + self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') + sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = redeem_amount.value, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + + @sp.entrypoint + def redeemUnderlying(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) + redeem_amount = sp.local("redeem_amount", 0) + sp.if True: + redeem_amount.value = params + sp.else: + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + amount = sp.local("amount", 0) + sp.if False: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value + sp.else: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params, sp.TNat) + sp.set_type(excRate.value * params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value + redeem_amount.value = amount.value + redeem_tokens = sp.local("redeem_tokens", 0) + sp.if True: + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + amount = sp.local("amount", 0) + sp.if True: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') + compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) + compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) + sp.if (compute_Exponential_277.value % excRate.value) > 0: + pass + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value + sp.else: + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params, sp.TNat) + sp.set_type(excRate.value * params, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value + redeem_tokens.value = amount.value + sp.else: + redeem_tokens.value = params + sp.if (redeem_amount.value > 0) & (redeem_tokens.value > 0): + sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') + self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') + sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = redeem_amount.value, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + + @sp.entrypoint + def reduceReserves(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') + self.data.activeOperations.add(12) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) + + @sp.entrypoint + def reduceReservesInternal(self, params): + sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') + sp.verify(self.data.activeOperations.contains(12), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(12) + sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') + sp.verify(params <= self.data.totalReserves, 'CT_REDUCE_AMOUNT') + sp.set_type(self.data.totalReserves, sp.TNat) + sp.set_type(params, sp.TNat) + self.data.totalReserves = sp.as_nat(self.data.totalReserves - params, message = 'SUBTRACTION_UNDERFLOW') + sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params, to_ = self.data.administrator, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + + @sp.entrypoint + def removePendingGovernance(self, params): + sp.set_type(params, sp.TUnit) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + self.data.pendingAdministrator = sp.none + + @sp.entrypoint + def repayBorrow(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.transfer(sp.record(borrower = sp.sender, cToken = sp.self_address, payer = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + borrowBalance = sp.local("borrowBalance", 0) + sp.if self.data.borrows.contains(sp.sender): + borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) + sp.if borrowSnapshot.value.principal > 0: + borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') + sp.if self.data.borrows[sp.sender].principal == 0: + sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) + + @sp.entrypoint + def repayBorrowBehalf(self, params): + sp.set_type(params, sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount"))) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.transfer(sp.record(borrower = params.borrower, cToken = sp.self_address, payer = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + borrowBalance = sp.local("borrowBalance", 0) + sp.if self.data.borrows.contains(params.borrower): + borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) + sp.if borrowSnapshot.value.principal > 0: + borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + sp.set_type(borrowBalance.value, sp.TNat) + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') + self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex + sp.set_type(self.data.totalBorrows, sp.TNat) + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') + sp.if self.data.borrows[params.borrower].principal == 0: + sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) + + @sp.entrypoint + def seize(self, params): + sp.set_type(params, sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens")))) + sp.if ~ (self.data.ledger.contains(params.liquidator)): + self.data.ledger[params.liquidator] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(params.liquidator)): + self.data.borrows[params.liquidator] = sp.record(interestIndex = 0, principal = 0) + sp.verify(sp.view("seizeAllowed", sp.record(cTokenBorrowed = sp.sender, cTokenCollateral = sp.self_address), self.data.comptroller, sp.TBool).open_some(message = 'INVALID SEIZE ALLOWED VIEW'), 'CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION') + sp.verify(params.borrower != params.liquidator, 'CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER') + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + sp.set_type(self.data.ledger[params.borrower].balance, sp.TNat) + sp.set_type(params.seizeTokens, sp.TNat) + sp.set_type(self.data.protocolSeizeShareMantissa, sp.TNat) + sp.set_type(params.seizeTokens, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.protocolSeizeShareMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + protocolSeizeTokens = sp.local("protocolSeizeTokens", (params.seizeTokens * self.data.protocolSeizeShareMantissa) // self.data.expScale) + sp.set_type(params.seizeTokens, sp.TNat) + sp.set_type(protocolSeizeTokens.value, sp.TNat) + excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) + sp.if self.data.totalSupply > 0: + sp.set_type(self.data.currentCash, sp.TNat) + sp.set_type(0, sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat) + sp.set_type(sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat) + sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') + sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) + excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply + sp.set_type(excRate.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(protocolSeizeTokens.value, sp.TNat) + sp.set_type(excRate.value * protocolSeizeTokens.value, sp.TNat) + sp.set_type(sp.record(mantissa = excRate.value * protocolSeizeTokens.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(self.data.totalReserves, sp.TNat) + sp.set_type((excRate.value * protocolSeizeTokens.value) // self.data.expScale, sp.TNat) + sp.set_type(self.data.totalSupply, sp.TNat) + sp.set_type(protocolSeizeTokens.value, sp.TNat) + sp.set_type(self.data.ledger[params.liquidator].balance, sp.TNat) + sp.set_type(sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW'), sp.TNat) + self.data.totalReserves += (excRate.value * protocolSeizeTokens.value) // self.data.expScale + self.data.totalSupply = sp.as_nat(self.data.totalSupply - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') + self.data.ledger[params.borrower].balance = sp.as_nat(self.data.ledger[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') + self.data.ledger[params.liquidator].balance += sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') + + @sp.entrypoint + def setCash(self, params): + sp.set_type(params, sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))) + sp.verify(self.data.activeOperations.contains(13), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(13) + sp.verify(sp.sender == self.data.fa2_TokenAddress, 'CT_INVALID_CASH_SENDER') + sp.verify(sp.len(params) == 1, 'CT_INVALID_CASH_DATA') + sp.for cash in params: + sp.verify(cash.request.token_id == self.data.tokenId, 'CT_INVALID_CASH_DATA') + sp.verify(cash.request.owner == sp.self_address, 'CT_INVALID_CASH_DATA') + self.data.currentCash = cash.balance + + @sp.entrypoint + def setComptroller(self, params): + sp.set_type(params, sp.TAddress) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + self.data.comptroller = params + + @sp.entrypoint + def setInterestRateModel(self, params): + sp.set_type(params, sp.TAddress) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') + self.data.activeOperations.add(9) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) + + @sp.entrypoint + def setInterestRateModelInternal(self, params): + sp.set_type(params, sp.TAddress) + sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') + sp.verify(self.data.activeOperations.contains(9), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(9) + self.data.interestRateModel = params + + @sp.entrypoint + def setPendingGovernance(self, params): + sp.set_type(params, sp.TAddress) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + self.data.pendingAdministrator = sp.some(params) + + @sp.entrypoint + def setReserveFactor(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') + self.data.activeOperations.add(10) + sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) + + @sp.entrypoint + def setReserveFactorInternal(self, params): + sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') + sp.verify(self.data.activeOperations.contains(10), 'OP_NOT_ACTIVE') + self.data.activeOperations.remove(10) + sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') + sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR') + self.data.reserveFactorMantissa = params + + @sp.entrypoint + def sweepFA12(self, params): + sp.set_type(params, sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress"))) + sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) + + @sp.entrypoint + def sweepFA2(self, params): + sp.set_type(params, sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress")))) + sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING') + sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) + + @sp.entrypoint + def sweepMutez(self, params): + sp.set_type(params, sp.TBool) + sp.if params: + sp.send(self.data.administrator, sp.balance) + sp.else: + sp.send(self.data.administrator, sp.balance) + + @sp.entrypoint + def transfer(self, params): + sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value")))) + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) + sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') + sp.if ~ (self.data.ledger.contains(params.to_)): + self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(params.to_)): + self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) + sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) + sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value")))) + sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) + self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) + self.data.ledger[params.to_].balance += params.value + sp.if params.from_ != sp.sender: + self.data.ledger[params.from_].approvals[sp.sender] = sp.as_nat(self.data.ledger[params.from_].approvals[sp.sender] - params.value) + sp.if self.data.ledger[params.from_].approvals[sp.sender] == 0: + del self.data.ledger[params.from_].approvals[sp.sender] + + @sp.entrypoint + def updateMetadata(self, params): + sp.set_type(params, sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value"))) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + self.data.metadata[params.key] = params.value + + @sp.entrypoint + def updateProtocolSeizeShare(self, params): + sp.set_type(params, sp.TNat) + sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') + self.data.protocolSeizeShareMantissa = params + +sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_contract.tz b/compiled_contracts/CstXTZ/step_000_cont_0_contract.tz new file mode 100644 index 00000000..4b0b39bf --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_contract.tz @@ -0,0 +1,5161 @@ +parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (list %setCash (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract (pair nat nat))) (pair %exchangeRateStored unit (contract (pair nat nat)))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract (pair nat nat))) (pair %getCash unit (contract (pair nat nat)))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); +storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))))); +code + { + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_LEFT + { + DUP; # @parameter.left : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_LEFT + { + IF_LEFT + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == accrueInterestInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == approve == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == doAccrueInterest == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == reduceReservesInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == removePendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setCash == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setComptroller == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setInterestRateModelInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setReserveFactorInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == updateProtocolSeizeShare == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 12; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + # missing entrypoint # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @parameter.left (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EXEC; # pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + IF_LEFT + { + IF_LEFT + { + # == accrueInterest == + # compute_CFA2_47 = sp.local("compute_CFA2_47", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if compute_CFA2_47.value > 0: # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # self.data.activeOperations.add(13) # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set %activeOperations nat) (address %administrator) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 13; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(callback = sp.self_entrypoint('setCash'), requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)])), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entrypoint='balance_of').open_some()) # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %balance_of (pair (list %requests (pair (address %owner) (nat %token_id))) (contract %callback (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))))); # option (contract (pair (list %requests (pair (address %owner) (nat %token_id))) (contract %callback (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance)))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 53; # int : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %setCash; # @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if sp.level != self.data.accrualBlockNumber: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair nat (pair (set nat) address) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # if self.data.accrualBlockNumber == 0: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair nat (pair (set nat) address) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # self.data.accrualBlockNumber = sp.level # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 6; # nat : @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 6; # @parameter%accrueInterest : @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @level (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%accrueInterest : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(8) # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 8; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 745; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%accrueInterest : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == addReserves == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # set nat : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SIZE; # nat : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "OP_IN_PROGRESS"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set %activeOperations nat) (address %administrator) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 11; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entrypoint('addReservesInternal')) # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %addReservesInternal; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # @parameter%addReserves : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @parameter%addReserves @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == addReservesInternal == + # sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_FUNCTION"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # set nat : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 11; # nat : set nat : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "OP_NOT_ACTIVE"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.remove(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set %activeOperations nat) (address %administrator) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool False; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 11; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair nat (pair (set nat) address) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(amount = params.addAmount, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%addReservesInternal : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%addReservesInternal : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += params.addAmount # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%addReservesInternal : nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 9; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == borrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrowAmount = params, borrower = sp.sender, cToken = sp.self_address), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entrypoint='borrowAllowed').open_some()) # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %borrowAllowed (pair (address %cToken) (pair (address %borrower) (nat %borrowAmount))); # option (contract (pair (address %cToken) (pair (address %borrower) (nat %borrowAmount)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 217; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GE; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair nat @parameter%borrow) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 641; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = borrowBalance.value + params # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 210; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 211; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows += params # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : nat : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # @parameter%borrow : nat : big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : nat : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == borrowBalanceStored == + # borrowBalance = sp.local("borrowBalance", 0) # @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%borrowBalanceStored : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%borrowBalanceStored : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @some : nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 641; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%borrowBalanceStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == exchangeRateStored == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((excRate.value, self.data.accrualBlockNumber)) # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%exchangeRateStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + # == getAccountSnapshot == + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getAccountSnapshot : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getAccountSnapshot : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getAccountSnapshot : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 579; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 3; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%getAccountSnapshot : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%getAccountSnapshot : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 641; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP 2; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 4; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(compute_CToken_571.value) + # sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getAccountSnapshot : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == getAllowance == + # result = sp.local("result", 0) # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params).owner): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getAllowance : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # if self.data.ledger[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getAllowance : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 555; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getAllowance : map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : map address nat : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params).owner].approvals[sp.fst(params).spender] # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%getAllowance : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%getAllowance : map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %owner) (address %spender) : map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : map address nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getAllowance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == getBalance == + # result = sp.local("result", 0) # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%getBalance : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params)].balance # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%getBalance : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 495; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getBalance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + # == getBalanceOfUnderlying == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 527; # int : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 61; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getBalanceOfUnderlying : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == getCash == + # sp.result((self.data.currentCash, self.data.accrualBlockNumber)) # @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getCash : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == getTotalSupply == + # sp.result(self.data.totalSupply) # @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getTotalSupply : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == liquidateBorrow == + # sp.transfer(sp.record(borrower = params.borrower, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral, liquidator = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), self.data.comptroller, entrypoint='liquidateBorrowAllowed').open_some()) # @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %liquidateBorrowAllowed (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))); # option (contract (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 360; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%liquidateBorrow : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address @self) (pair address (pair @sender nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != sp.sender, 'CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.repayAmount > 0, 'CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 641; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 266; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 268; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @some : big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : @some : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 271; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 273; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "balanceOf" nat; # option nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "INVALID BALANCE OF VIEW"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GE; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%liquidateBorrow : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %seize (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens))); # option (contract (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 385; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%liquidateBorrow : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%liquidateBorrow : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + IF_LEFT + { + # == mint == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, mintAmount = params, minter = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entrypoint='mintAllowed').open_some()) # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %mintAllowed (pair (address %cToken) (pair (address %minter) (nat %mintAmount))); # option (contract (pair (address %cToken) (pair (address %minter) (nat %mintAmount)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 104; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = params, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat @parameter%mint) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%mint : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_975.value + # sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_MINT_AMOUNT_IS_INVALID"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance += amount.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 99; # int : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == redeem == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %redeemAllowed (pair (address %cToken) (pair (address %redeemer) (nat %redeemAmount))); # option (contract (pair (address %cToken) (pair (address %redeemer) (nat %redeemAmount)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 177; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if False: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if False: + # compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%redeem : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 61; # int : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_978.value + # redeem_amount.value = amount.value + # redeem_tokens = sp.local("redeem_tokens", 0) + # if False: + # redeem_tokens.value = params # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%redeem : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + PUSH bool False; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GE; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INSUFFICIENT_CASH"; # string : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%redeem : @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient supply"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 172; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient balance"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = redeem_amount.value, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%redeem : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == redeemUnderlying == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %redeemAllowed (pair (address %cToken) (pair (address %redeemer) (nat %redeemAmount))); # option (contract (pair (address %cToken) (pair (address %redeemer) (nat %redeemAmount)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 177; # int : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) + # if True: + # redeem_amount.value = params # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_tokens = sp.local("redeem_tokens", 0) # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%redeemUnderlying : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 280; # int : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (compute_Exponential_277.value % excRate.value) > 0: # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # nat : nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 281; # int : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + DROP 2; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 1; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_986.value + # redeem_tokens.value = amount.value + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%redeemUnderlying : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + PUSH bool False; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GE; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%redeemUnderlying : @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient supply"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 172; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "Insufficient balance"; # string : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = redeem_amount.value, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair nat @parameter%redeemUnderlying) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP 2; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + # == reduceReserves == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # set nat : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SIZE; # nat : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "OP_IN_PROGRESS"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(12) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set %activeOperations nat) (address %administrator) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 12; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %reduceReservesInternal; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%reduceReserves : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == repayBorrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = sp.sender, cToken = sp.self_address, payer = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 641; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # @parameter%repayBorrow : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 266; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 268; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @some : big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : @some : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[sp.sender].principal == 0: # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 271; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 273; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == repayBorrowBehalf == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, cToken = sp.self_address, payer = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%repayBorrowBehalf : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%repayBorrowBehalf : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @some : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 641; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 266; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 268; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @some : big_map nat (pair (nat %token_id) (map %token_info string bytes)) : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map nat (pair (nat %token_id) (map %token_info string bytes)) : @some : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some : pair (nat %totalReserves) (nat %totalSupply) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 271; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 273; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%repayBorrowBehalf : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # @parameter%repayBorrowBehalf : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == seize == + # if ~ (self.data.ledger.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%seize : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # @parameter%seize : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%seize : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.liquidator] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%seize : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("seizeAllowed", sp.record(cTokenBorrowed = sp.sender, cTokenCollateral = sp.self_address), self.data.comptroller, sp.TBool).open_some(message = 'INVALID SEIZE ALLOWED VIEW'), 'CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "seizeAllowed" bool; # option bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "INVALID SEIZE ALLOWED VIEW"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != params.liquidator, 'CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @parameter%seize : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%seize : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # protocolSeizeTokens = sp.local("protocolSeizeTokens", (params.seizeTokens * self.data.protocolSeizeShareMantissa) // self.data.expScale) # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%seize : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 231; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 257; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + {}; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += (excRate.value * protocolSeizeTokens.value) // self.data.expScale # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 61; # int : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + { + CAR; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.borrower].balance = sp.as_nat(self.data.ledger[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%seize : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%seize : big_map address (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 310; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%seize : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 337; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator].balance += sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%seize : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 338; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 10; # @parameter%seize : nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + # == setInterestRateModel == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # set nat : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SIZE; # nat : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "OP_IN_PROGRESS"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(9) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set %activeOperations nat) (address %administrator) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 9; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %setInterestRateModelInternal; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setInterestRateModel : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == setReserveFactor == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # set nat : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SIZE; # nat : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "OP_IN_PROGRESS"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(10) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # nat : pair (set %activeOperations nat) (address %administrator) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 10; # nat : bool : set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # set nat : address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (set nat) address : nat : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %accrueInterest; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF %setReserveFactorInternal; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setReserveFactor : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == sweepFA12 == + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 17; # int : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + IF_LEFT + { + # == sweepFA2 == + # sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING') # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%sweepFA2 : address : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : address : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + PUSH bool True; # bool : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%sweepFA2 : nat : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # bool : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_SWEEP_UNDERLYING"; # string : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 43; # int : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @parameter%sweepFA2 : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%sweepFA2 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == sweepMutez == + # if params: # @parameter%sweepMutez : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %receive unit; # option (contract unit) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 21; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 24; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + IF_LEFT + { + # == transfer == + # sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + PUSH bool True; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + DUP; # @parameter%transfer : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GE; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + # verify # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughAllowance"; # string : pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat @some) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_INTERNAL_CALL"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # @parameter%transfer : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%transfer : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transferAllowed (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens))); # option (contract (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 431; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%transfer : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%transfer : nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%transfer : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%transfer : big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 417; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GE; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + # verify # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 418; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughBalance"; # string : pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%transfer : big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 420; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 419; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_].balance += params.value # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 421; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%transfer : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if params.from_ != sp.sender: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NEQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # self.data.ledger[params.from_].approvals[sp.sender] = sp.as_nat(self.data.ledger[params.from_].approvals[sp.sender] - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 9; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 423; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%transfer : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 12; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 13; # @parameter%transfer : big_map address (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 423; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger[params.from_].approvals[sp.sender] == 0: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%transfer : big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # del self.data.ledger[params.from_].approvals[sp.sender] # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 426; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NONE nat; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # @parameter%transfer : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + SWAP; # @parameter%transfer : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + } + { + # == updateMetadata == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EQ; # bool : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + {} + { + PUSH string "CT_NOT_ADMIN"; # string : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + }; # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.metadata[params.key] = params.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # address : pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%updateMetadata : big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # bytes : big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option bytes : big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # @parameter%updateMetadata : option bytes : big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # string : option bytes : big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map string bytes : big_map address (pair (map %approvals address nat) (nat %balance)) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes)) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ITER + { + CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : list operation + PAIR; # pair (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))))) : list operation + SWAP; # list operation : pair (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))))) + PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))))) + }; +view + "accrualBlockNumber" unit nat + { + GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.accrualBlockNumber) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) + CAR; # nat + }; +view + "balanceOf" address nat + { + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result = sp.local("result", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter + # result.value = self.data.ledger[params].balance # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter + SWAP; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) + GET; # option (pair (map %approvals address nat) (nat %balance)) + IF_NONE + { + PUSH int 509; # int + FAILWITH; # FAILED + } + {}; # @some + CDR; # nat + } + { + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat + DROP; # nat + }; # nat + # sp.result(result.value) # nat + }; +view + "borrowBalanceStoredView" address (pair nat nat) + { + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 638; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @some : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + SWAP; # nat : @some : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 641; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat + }; +view + "comptroller" unit address + { + GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.comptroller) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) + GET 3; # address + }; +view + "exchangeRateStoredView" unit (pair nat nat) + { + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 8; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GT; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF + { + DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ADD; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 257; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((excRate.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat + }; +view + "getAccountSnapshotView" address (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))) + { + UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (self.data.accrualBlockNumber == sp.level) | (~ (self.data.ledger.contains(params))): # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + PUSH bool True; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + NOT; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = params, borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.ledger.contains(params): # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[params].balance # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 579; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.borrows.contains(params): # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 638; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 641; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 8; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) + }; # nat : pair (pair @parameter nat) (pair nat nat) + } + { + SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) + }; # nat : pair (pair @parameter nat) (pair nat nat) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair @parameter nat) (pair nat nat) + UPDATE 4; # pair (pair @parameter nat) (pair nat nat) + } + { + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + # sp.result(sp.some(compute_CToken_571.value)) # pair (pair @parameter nat) (pair nat nat) + SOME; # option (pair (pair @parameter nat) (pair nat nat)) + } + { + DROP 2; # + # sp.result(sp.none) # + NONE (pair (pair address nat) (pair nat nat)); # option (pair (pair address nat) (pair nat nat)) + }; # option (pair (pair address nat) (pair nat nat)) + }; \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_sizes.csv b/compiled_contracts/CstXTZ/step_000_cont_0_sizes.csv new file mode 100644 index 00000000..32fb9adb --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_sizes.csv @@ -0,0 +1,2 @@ +storage,5620 +contract,21117 \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_storage.json b/compiled_contracts/CstXTZ/step_000_cont_0_storage.json new file mode 100644 index 00000000..9161fbef --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_storage.json @@ -0,0 +1,1433 @@ +{ + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ [], { "string": "KT1QScMEtDpXSuj7z2if1EMSqaXaXPnWCxqv" } ] } ] }, + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "800000000000" }, { "int": "0" } ] } ] } + ] + }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ { "string": "KT1P6Lryn3ikbyf5jywWBBRP5fkztE5ZafGe" }, { "int": "0" } ] } ] }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "string": "KT1KXKhkxDezoa8G3WvPtsrgNTs5ZQwhpYZN" } ] }, + { "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1000000000000000000" } ] } + ] + } + ] + } + ] + }, + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + { "string": "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy" }, + { + "prim": "Pair", + "args": [ + [], + [ + { "prim": "Elt", "args": [ { "string": "" }, { "bytes": "74657a6f732d73746f726167653a64617461" } ] }, + { + "prim": "Elt", + "args": [ + { "string": "data" }, + { + "bytes": "7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720737458545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220737458545a20737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d" + } + ] + } + ] + ] + } + ] + }, + { "prim": "Pair", "args": [ { "prim": "None" }, { "prim": "Pair", "args": [ { "int": "100000000000000" }, { "int": "50000000000000000" } ] } ] } + ] + }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, + { + "prim": "Pair", + "args": [ + { + "prim": "Pair", + "args": [ + [ + { + "prim": "Elt", + "args": [ + { "int": "0" }, + { + "prim": "Pair", + "args": [ + { "int": "0" }, + [ + { "prim": "Elt", "args": [ { "string": "decimals" }, { "bytes": "36" } ] }, + { "prim": "Elt", "args": [ { "string": "name" }, { "bytes": "54657a46696e20496e7465726573742d42656172696e6720737458545a" } ] }, + { "prim": "Elt", "args": [ { "string": "symbol" }, { "bytes": "ea9cb0737458545a" } ] } + ] + ] + } + ] + } + ], + { "int": "0" } + ] + }, + { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } + ] + } + ] + } + ] + } + ] + }, + [ + { + "prim": "Elt", + "args": [ + { "int": "0" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "822" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "NONE", "args": [ { "prim": "address" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "1" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] }, + { "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] } + ] + } + ], + "annots": [ "%getBorrowRate" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "754" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "2" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "NEQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "460" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1000" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "461" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "LT" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [], + [ + { + "prim": "PUSH", + "args": [ + { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "unit" } ] }, + { "prim": "Pair", "args": [ { "string": "FA1.2_MaxApprovalsReached" }, { "prim": "Unit" } ] } + ] + }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "UnsafeAllowanceChange" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "468" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "NONE", "args": [ { "prim": "nat" } ] }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "UPDATE" }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } + ], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "DUP" }, + { "prim": "SENDER" }, + { "prim": "DUP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "470" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CDR" }, + { "prim": "SOME" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "UPDATE" }, + { "prim": "UPDATE", "args": [ { "int": "1" } ] }, + { "prim": "SOME" }, + { "prim": "SWAP" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "3" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_BORROW_RATE" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "769" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MUL" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "ADD" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "ADD" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "UPDATE", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "ADD" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DROP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "4" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] + } + ] + ] + } + ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "5" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ] + ] + } + ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "COMPARE" }, + { "prim": "GE" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "SWAP" }, + { "prim": "UPDATE", "args": [ { "int": "9" } ] }, + { "prim": "SWAP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%from_" ] }, + { + "prim": "list", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address", "annots": [ "%to_" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%token_id" ] }, { "prim": "nat", "annots": [ "%amount" ] } ] } + ] + } + ], + "annots": [ "%txs" ] + } + ] + } + ] + } + ], + "annots": [ "%transfer" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { + "prim": "NIL", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { "prim": "list", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] } + ] + } + ] + }, + { "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "CONS" }, + { "prim": "SELF_ADDRESS" }, + { "prim": "PAIR" }, + { "prim": "CONS" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "6" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ] + ] + }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "NONE", "args": [ { "prim": "address" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "7" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP" }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SELF_ADDRESS" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DROP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "8" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "9" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ] + ] + } + ] + ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "10" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ] + ] + } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SOME" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "11" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + ] + } + ] + ] + } + ] + ] + }, + { "prim": "SELF_ADDRESS" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "12" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ] + ] + } + ] + ] + } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + } + ] + ] +} \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_storage.py b/compiled_contracts/CstXTZ/step_000_cont_0_storage.py new file mode 100644 index 00000000..faacf6ba --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_storage.py @@ -0,0 +1 @@ +sp.record(accrualBlockNumber = 0, activeOperations = sp.set([]), administrator = sp.address('KT1QScMEtDpXSuj7z2if1EMSqaXaXPnWCxqv'), borrowIndex = 1000000000000000000, borrowRateMaxMantissa = 800000000000, borrowRatePerBlock = 0, borrows = {}, comptroller = sp.address('KT1P6Lryn3ikbyf5jywWBBRP5fkztE5ZafGe'), currentCash = 0, expScale = 1000000000000000000, fa2_TokenAddress = sp.address('KT1KXKhkxDezoa8G3WvPtsrgNTs5ZQwhpYZN'), halfExpScale = 500000000000000000, initialExchangeRateMantissa = 1000000000000000000, interestRateModel = sp.address('KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy'), ledger = {}, metadata = {'' : sp.bytes('0x74657a6f732d73746f726167653a64617461'), 'data' : sp.bytes('0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720737458545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220737458545a20737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d')}, pendingAdministrator = sp.none, protocolSeizeShareMantissa = 100000000000000, reserveFactorMantissa = 50000000000000000, reserveFactorMaxMantissa = 1000000000000000000, supplyRatePerBlock = 0, tokenId = 0, token_metadata = {0 : sp.record(token_id = 0, token_info = {'decimals' : sp.bytes('0x36'), 'name' : sp.bytes('0x54657a46696e20496e7465726573742d42656172696e6720737458545a'), 'symbol' : sp.bytes('0xea9cb0737458545a')})}, totalBorrows = 0, totalReserves = 0, totalSupply = 0) \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_storage.tz b/compiled_contracts/CstXTZ/step_000_cont_0_storage.tz new file mode 100644 index 00000000..c598386a --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_storage.tz @@ -0,0 +1 @@ +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1QScMEtDpXSuj7z2if1EMSqaXaXPnWCxqv")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1P6Lryn3ikbyf5jywWBBRP5fkztE5ZafGe" 0)) (Pair (Pair 1000000000000000000 "KT1KXKhkxDezoa8G3WvPtsrgNTs5ZQwhpYZN") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720737458545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220737458545a20737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720737458545a; Elt "symbol" 0xea9cb0737458545a})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; CAR; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; CAR; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; CAR; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 5; CDR; CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); IF_NONE { PUSH int 43; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; CAR; GET 4; PAIR 3; CONS; SELF_ADDRESS; PAIR; CONS; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 5; CDR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; PUSH nat 1; DUP 2; SIZE; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; SELF_ADDRESS; DUP 2; CAR; CAR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CstXTZ/step_000_cont_0_types.py b/compiled_contracts/CstXTZ/step_000_cont_0_types.py new file mode 100644 index 00000000..40c08e8b --- /dev/null +++ b/compiled_contracts/CstXTZ/step_000_cont_0_types.py @@ -0,0 +1,6 @@ +import smartpy as sp + +tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, borrows = sp.TBigMap(sp.TAddress, sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal"))), comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, ledger = sp.TBigMap(sp.TAddress, sp.TRecord(approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("approvals", "balance"))), metadata = sp.TBigMap(sp.TString, sp.TBytes), pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, tokenId = sp.TNat, token_metadata = sp.TBigMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", ("activeOperations", "administrator")), ("borrowIndex", ("borrowRateMaxMantissa", "borrowRatePerBlock"))), (("borrows", ("comptroller", "currentCash")), (("expScale", "fa2_TokenAddress"), ("halfExpScale", "initialExchangeRateMantissa")))), ((("interestRateModel", ("ledger", "metadata")), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "tokenId")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply")))))) +tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) +tprivates = { } +tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TPair(sp.TNat, sp.TNat)), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TPair(sp.TNat, sp.TNat)), "getAccountSnapshotView": (sp.TAddress, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) } diff --git a/contracts/TezFinOracle.py b/contracts/TezFinOracle.py index 80f89655..f31b64d8 100644 --- a/contracts/TezFinOracle.py +++ b/contracts/TezFinOracle.py @@ -15,7 +15,7 @@ def __init__(self, admin, oracle): overrides=sp.big_map(l={"USD-USD": (sp.timestamp(int(time.time())), sp.as_nat( 1000000)),"USDT-USD": (sp.timestamp(int(time.time())), sp.as_nat( 1000000))}, tkey=sp.TString, tvalue=sp.TPair(sp.TTimestamp, sp.TNat)), - alias=sp.big_map(l={"OXTZ-USD": "XTZ-USD", "WTZ-USD": "XTZ-USD", "TZBTC-USD":"BTC-USD"}, + alias=sp.big_map(l={"OXTZ-USD": "XTZ-USD", "WTZ-USD": "XTZ-USD", "TZBTC-USD":"BTC-USD", "STXTZ-USD": "XTZ-USD"}, tkey=sp.TString, tvalue=sp.TString), oracle=oracle, admin=admin, diff --git a/deploy/compile_targets/CompileCstXTZ.py b/deploy/compile_targets/CompileCstXTZ.py new file mode 100644 index 00000000..430751a1 --- /dev/null +++ b/deploy/compile_targets/CompileCstXTZ.py @@ -0,0 +1,34 @@ +import smartpy as sp +import json + +CFG = sp.io.import_script_from_url("file:deploy/compile_targets/Config.py") +CFA2 = sp.io.import_script_from_url("file:contracts/CFA2.py") +UTILS = sp.io.import_script_from_url("file:deploy/compile_targets/Utils.py") + +UTILS.checkDependencies(CFG.CFA2) + +sp.add_compilation_target("CstXTZ", CFA2.CFA2( + comptroller_ = sp.address(""), + interestRateModel_ = sp.address(""), + initialExchangeRateMantissa_ = sp.nat(CFG.CFA2.initialExchangeRateMantissa), + administrator_ = sp.address(""), + # specify metadata before compilation + metadata_ = sp.big_map({ + "": sp.utils.bytes_of_string("tezos-storage:data"), + "data": sp.utils.bytes_of_string(json.dumps({ + "name": "TezFin Interest-Bearing stXTZ", + "description": "Interest-bearing token for stXTZ supplied to the TezFin lending protocol", + "version": "3.0", + "authors": ["Tezos Finance Protocol"], + "homepage": "https://tezos.finance", + "interfaces": ["TZIP-007", "TZIP-016"], + })) + }), + token_metadata_ = { + "name": sp.utils.bytes_of_string("TezFin Interest-Bearing stXTZ"), + "symbol": sp.utils.bytes_of_string("\ua730stXTZ"), + "decimals": sp.utils.bytes_of_string("6"), + }, + fa2_TokenAddress_ = sp.address(""), + tokenId_ = sp.nat(0) + )) diff --git a/src/ui/src/assets/fXTZ.svg b/src/ui/src/assets/fXTZ.svg index c40b887d..d306e580 100644 --- a/src/ui/src/assets/fXTZ.svg +++ b/src/ui/src/assets/fXTZ.svg @@ -1,5 +1,5 @@ - + ꜰXTZ @@ -12,24 +12,16 @@ - + - - - - - - - - - - - - - - - - - + + + + + + + + + \ No newline at end of file diff --git a/src/ui/src/assets/fstXTZ.svg b/src/ui/src/assets/fstXTZ.svg new file mode 100644 index 00000000..f5c67b0c --- /dev/null +++ b/src/ui/src/assets/fstXTZ.svg @@ -0,0 +1,39 @@ + + + stXTZ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/src/ui/src/assets/ftzBTC.svg b/src/ui/src/assets/ftzBTC.svg index 6e6ee88c..9d37e781 100644 --- a/src/ui/src/assets/ftzBTC.svg +++ b/src/ui/src/assets/ftzBTC.svg @@ -14,14 +14,14 @@ - + - + - + \ No newline at end of file diff --git a/src/ui/src/assets/fusdt.svg b/src/ui/src/assets/fusdt.svg index 4e17cc1d..fda925ba 100644 --- a/src/ui/src/assets/fusdt.svg +++ b/src/ui/src/assets/fusdt.svg @@ -1,6 +1,6 @@ - - ꜰUSDt (Tether) + + ꜰUSDt @@ -12,24 +12,16 @@ - + - - - - - - - - - - - - - - - - - + + + + + + + + + \ No newline at end of file diff --git a/src/ui/src/assets/fusdtz.svg b/src/ui/src/assets/fusdtz.svg index e2006cb8..60df3ceb 100644 --- a/src/ui/src/assets/fusdtz.svg +++ b/src/ui/src/assets/fusdtz.svg @@ -1,5 +1,5 @@ - + ꜰUSDtz @@ -12,26 +12,18 @@ - + - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + \ No newline at end of file diff --git a/src/ui/src/assets/stacy_logo.png b/src/ui/src/assets/stacy_logo.png new file mode 100644 index 00000000..114e6602 Binary files /dev/null and b/src/ui/src/assets/stacy_logo.png differ diff --git a/src/ui/src/components/Constants/index.js b/src/ui/src/components/Constants/index.js index 99114be9..e31e272c 100644 --- a/src/ui/src/components/Constants/index.js +++ b/src/ui/src/components/Constants/index.js @@ -9,6 +9,9 @@ import tzBTC from '../../assets/tzBTC.svg'; import USDtz from '../../assets/USDtz.svg'; import XTZ from '../../assets/XTZ.svg'; + +import stXTZ from '../../assets/stacy_logo.png'; +import fstXTZ from '../../assets/fstXTZ.svg'; // import BTCtz from '../../assets/BTCtez.svg'; // import Ethtz from '../../assets/ETHtz.svg'; // import wtz from '../../assets/wtz.svg'; @@ -60,6 +63,15 @@ export const tokens = [ assetType: AssetType.TZBTC, visibilityThreshold: 0.0000001, address: addresses.underlying.TZBTC?.address ?? '' + }, + { + title: 'stXTZ', + name: 'stXTZ', + logo: stXTZ, + fLogo: fstXTZ, + banner: 'stXTZ', + assetType: AssetType.STXTZ, + address: addresses.underlying.STXTZ?.address ?? '' } // { // title: 'BTCtz', logo: BTCtz, fLogo: fBTCtz, banner: 'BTCtz', assetType: AssetType.BTC @@ -79,7 +91,8 @@ export const tokenColor = { XTZ: 'rgb(51,145,246)', USDtz: 'rgb(24,157,163)', USDt: 'rgb(65 145 146)', - tzBTC: 'rgb(20,89,255)' + tzBTC: 'rgb(20,89,255)', + stXTZ: '#2B62F8' // ETHtz: '#662F9D', // BTCtz: '#F2991A', // oXTZ: '#B52B31', diff --git a/src/util/src/PriceFeed.ts b/src/util/src/PriceFeed.ts index ac0efe6f..ae470b79 100644 --- a/src/util/src/PriceFeed.ts +++ b/src/util/src/PriceFeed.ts @@ -8,6 +8,7 @@ import bigInt from 'big-integer'; const alias = { [AssetType.OXTZ]: AssetType.XTZ, [AssetType.WTZ]: AssetType.XTZ, + [AssetType.STXTZ]: AssetType.XTZ } export namespace PriceFeed { diff --git a/src/util/src/const.ts b/src/util/src/const.ts index eb3a16ce..e5f10622 100644 --- a/src/util/src/const.ts +++ b/src/util/src/const.ts @@ -17,6 +17,8 @@ export const decimals = { USDt: 6, tzBTC: 8, TZBTC: 8, + stXTZ: 6, + STXTZ: 6, }; export const testnetAddresses: ProtocolAddresses = { @@ -25,12 +27,14 @@ export const testnetAddresses: ProtocolAddresses = { USD: "KT1QtSBzy61AmUcsjqQbMSdnr1ifP9RQ2Zug", XTZ: "KT1CC4E5zmbJm94VwLf7ZEoJvC2tEqzE8Pqp", TZBTC: "KT1JrHK7S9zZ5bA1xTBxNnkieM9YL7iq1KdB", + STXTZ: "KT1CqeRyoTMo7zpPbLgXSbGDzPyUK5ZwwNdD" }, fTokensReverse: { KT1CC4E5zmbJm94VwLf7ZEoJvC2tEqzE8Pqp: AssetType.XTZ, KT1QtSBzy61AmUcsjqQbMSdnr1ifP9RQ2Zug: AssetType.USD, KT1P51AJbS1iBvAXstqsPv4UJeQ8fGCZbS7P: AssetType.USDT, KT1JrHK7S9zZ5bA1xTBxNnkieM9YL7iq1KdB: AssetType.TZBTC, + KT1CqeRyoTMo7zpPbLgXSbGDzPyUK5ZwwNdD: AssetType.STXTZ }, underlying: { USD: { @@ -63,6 +67,15 @@ export const testnetAddresses: ProtocolAddresses = { tokenStandard: TokenStandard.XTZ, decimals: 6, }, + STXTZ: { + assetType: AssetType.STXTZ, + tokenStandard: TokenStandard.FA2, + decimals: 6, + tokenId: 0, + address: "KT1Rh7wPQ8tmSGFHtXaYe1khGPPoL73pLB4w", + balancesMapId: 472857, + balancesPath: "$.int", + } }, comptroller: "KT1R2sHBKvaja5ZVZzLv5VcoAUNfSYoYFDrX", interestRateModel: { @@ -70,9 +83,10 @@ export const testnetAddresses: ProtocolAddresses = { USDT: "KT1XNBkP1irKJgC1DGWFqD8Je1tdcoyuDoha", USD: "KT1XNBkP1irKJgC1DGWFqD8Je1tdcoyuDoha", TZBTC: "KT1XNBkP1irKJgC1DGWFqD8Je1tdcoyuDoha", + STXTZ: "KT1XNBkP1irKJgC1DGWFqD8Je1tdcoyuDoha" }, governance: "KT1ELnYzaxQBULdfJXBc7iAVfudd4ktqvdhA", - oracle: "KT1JruaZp25yuKgn2DGTnCMbRoU3CaZ4M11m", + oracle: "KT1CMqReAqNznZf5CYQQM5HDe5cnVPM3SwyL", }; export const mainnetAddresses: ProtocolAddresses = { @@ -81,12 +95,14 @@ export const mainnetAddresses: ProtocolAddresses = { USD: "KT1DcgX4Lj1XYyB6yyg76gwpfCBaoUZsg5dE", USDT: "KT1HxMHg859teFpXXCZamuPiEyJa6YfHiagn", TZBTC: "KT1DrELZukfWQNo3J3HTUqMS9vVTjBPLT5nQ", + STXTZ: "KT1XMtNcPze6x7hxJXezdgVGjNuHsZEYu2vw" }, fTokensReverse: { KT1Gm29ynxQcS3m6Srwd77xxMhposuNvNsRV: AssetType.XTZ, KT1DcgX4Lj1XYyB6yyg76gwpfCBaoUZsg5dE: AssetType.USD, KT1HxMHg859teFpXXCZamuPiEyJa6YfHiagn: AssetType.USDT, KT1DrELZukfWQNo3J3HTUqMS9vVTjBPLT5nQ: AssetType.TZBTC, + KT1XMtNcPze6x7hxJXezdgVGjNuHsZEYu2vw: AssetType.STXTZ }, underlying: { TZBTC: { @@ -119,6 +135,15 @@ export const mainnetAddresses: ProtocolAddresses = { tokenStandard: TokenStandard.XTZ, decimals: 6, }, + STXTZ: { + assetType: AssetType.STXTZ, + tokenStandard: TokenStandard.FA2, + decimals: 6, + address: "KT1KXKhkxDezoa8G3WvPtsrgNTs5ZQwhpYZN", + tokenId: 0, + balancesMapId: 729395, + balancesPath: "$.int", + } }, comptroller: "KT1P6Lryn3ikbyf5jywWBBRP5fkztE5ZafGe", interestRateModel: { @@ -126,9 +151,10 @@ export const mainnetAddresses: ProtocolAddresses = { USDT: "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy", USD: "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy", TZBTC: "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy", + STXTZ: "KT1MouCFViyqWQ3QX5Zk69JGnXBXjQso68sy" }, governance: "KT1QScMEtDpXSuj7z2if1EMSqaXaXPnWCxqv", - oracle: "KT1Wey5KJSanEkVvLf3ngQcMiBqF9Sn2FEic", + oracle: "KT1JiMMNrs6rptrQEZGCyxcZQSSZ8aqLqbYa", }; export const tokenNames: { [assetType: string]: string } = { @@ -139,6 +165,7 @@ export const tokenNames: { [assetType: string]: string } = { WTZ: "WTZ", USDT: "USDT", TZBTC: "TZBTC", + STXTZ: "STXTZ" }; export const expectedBlocksPerYear = 2 * 60 * 24 * 365; diff --git a/src/util/src/enum.ts b/src/util/src/enum.ts index b787eed1..c6b763b6 100644 --- a/src/util/src/enum.ts +++ b/src/util/src/enum.ts @@ -12,7 +12,8 @@ export enum AssetType { WTZ = "WTZ", OXTZ = "OXTZ", USDT = "USDT", - TZBTC = "TZBTC" + TZBTC = "TZBTC", + STXTZ = "STXTZ" } export enum TokenStandard {